Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/files/ID99MENU.DIR/00022_Script_demo button script

Text File | 1999-04-29 | 486b | 27 lines

global demos,currtitle

property s

on beginsprite me
  s = the spritenum of me
end

on prepareframe me
  if currtitle = 0 then
    set the member of sprite s to "dim demo"
    exit
  end if
  thedemo = getat(demos,currtitle)
  if thedemo <> "" then
    set the member of sprite s to "demo button"
  else
    set the member of sprite s to "dim demo"
  end if
end

on mouseUp
  if currtitle = 0 then exit
  thedemo = getat(demos,currtitle)
  godemo thedemo
end